home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE Filter PW 1.xpl < prev    next >
Text File  |  2003-11-19  |  1KB  |  44 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Internet Explorer\Troubleshooting"
  5. "NAME"="Internet Filters"
  6. "VERSION"="1.42"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Delete Internet Filter Password"
  9. "DESCRIPTION 1"="Click the button if you have set up filters inside Internet Explorer (Options - Contents) but can't remember the password."
  10. "DESCRIPTION 2"="After the password has been deleted, restart IE and you can set up a new password."
  11. "DESCRIPTION 3"="If IE asks you for a password, simply insert nothing - just press return."
  12. "DESCRIPTION 4"="NOTE: This is for the Content Advisor feature in IE."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17.  
  18.  
  19.  
  20. Sub Plugin_Initialize 
  21. ' Disable
  22. End Sub
  23.  
  24. Sub Plugin_CheckData(ElementIndex)
  25. End Sub
  26.  
  27. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  28.  i=ElementIndex
  29.  Select Case i
  30.  
  31.   Case 1
  32.    s=RegReadValue("HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Ratings\Key")
  33.    if IsEmpty(s)=false then
  34.     Call RegDeleteValue("HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Ratings\Key")
  35.    end if
  36.  
  37.    Call MsgInformation("Password cleared")
  38.  
  39.  end select
  40. End Sub
  41.  
  42. Sub Plugin_Terminate 
  43. End Sub
  44.